#!/usr/local/bin/perl -w 

use strict;

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

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

print @bits_and_pieces;