# save as match.pl
while (<DATA>){
$text=$text.$_}
print "$text\n";
$text =~ m/cc.>/s;
print "Prematch: $`\n";
print "Match: $&\n";
print "Postmatch: $'";
__END__
>seq11
accggttggtcc
>Protein
CCSTRKSBCJHBHJCBAJDHLCBH