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