c:\@Work\Perl>perl -wMstrict -le
"my $s = 'xxxabcyyy';
 ;;
 print qq{overall match begining at offset $-[0] in '$s'}
   if $s =~ m{ abc }xms;
"
overall match begining at offset 3 in 'xxxabcyyy'