while(<>){
    print if m/^-/;
    if (m/^(\w+\.txt)/){
        open (local(*FILE), "> $1") or die $!;
        print FILE "Success";
        close FILE or die $!;
    }
}