my $line = "This is sample data simulating a line from a file.";
my (@chars) = ($line =~ m/([st])/gi);