perl -we'use strict;use P; 
my $str="part";
my @match_m  = $str =~ m{^(.).*?(.)};
my @match_qr = $str =~ qr{^(.).*?(.)};
sub p_Ar($) { P "#=%d, content=(%s)", scalar(@{$_[0]}), $_[0]};           
P "res1:%s\nres2:%s", p_Ar \@match_m, p_Ar \@match_qr;
'     
res1:#=2, content=(['p', 'a'])
res2:#=2, content=(['p', 'a'])