Select Code to Download

my $line = "a whole lotta shakin >pattern here< goin on";

my @bits_and_pieces = split /></, $line;

'a whole lotta shakin >pattern here< goin on'

my $line = "a whole lotta shakin ><pattern here>< goin on"; 
my @bits_and_pieces = split /></, $line;

('a whole lotta shakin ','pattern here',' goin on')

print @bits_and_pieces;

'a whole lotta shakin pattern here goin on'