foreach my $line (@grep) {
    my @arr = $line =~ //g;