Select Code to Download

sub splitlong {
    my $text = shift;
...
my $text = 'ju[color=1]s[/color]t a sam[color=2]p[/color]le';

print splitlong($text);