模式匹配，匹配结果赋值给变量

如下代码需要完成，匹配一字符串$data中-o后的1,2,3,4，并把结果保存入变量：$t1。

my $data ='1,3,4,5, -o 1,2,3,4 -q sdfsdjlfjlsdjfl';
if ( $data =~ m/-o (/S+) -(/S+)/) {
    print "args:/n";
    print "$1/n";
        my $t1 = $1;
print "$t1";
}