perl -e 'my $a = "fdsgdf"; my($b,$c) = $a =~ m/(fd)(4)/;print "$b $c\n"'