my @data;
while (my $line = <$FILE>){

    next if $line =~ /^c/;
    ($line, undef) = split /\$/, $line, 2;

    push @data, $line =~ /\d+\.30c/g;
    push @data, $line =~ /\w+\.01t/g;
}