Select Code to Download

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

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

print @bits_and_pieces;