# prüfen, ob ein string mit einem gesuchten String anfängt
if ($string =~ m/^Test123123/) {
    print "$string fängt mit Test123123 an";
}

# prüfen, ob eine datei ein verzeichnis oder eine echte datei ist
if (-f $filename) {
    # datei
}