use strict;
use warnings;

my $SET    = 'a$b$c$d$f';
my @SET_SPLIT = split /\$/, $SET;
print "$_\n" foreach (@SET_SPLIT);

my $ende = <STDIN>;