my $string = "uno abc dos";
my @a = split /abc/, $string;
$string =~ /(abc)/;
...some use of $1...