Select Code to Download

(?-xism:(?-xism:(?:\<(?:(?>[^\<\>]+)|(??{$Regexp::Common::balanced [0]
+}))*\>)))

#!/usr/bin/perl --
use strict; use warnings; 
...
}
sub shabba_text { join'',@_ }
__END__