Select Code to Download

#!/usr/bin/perl

...
print $text =~ m[is a], " - m[]\n";
print $text =~ m(is a), " - m()\n";
print $text =~ m<is a>, " - m<>\n";

1 - m//
1 - //
...
1 - m[]
1 - m()
1 - m<>