while(<>){
    print if m/^-/;
    if (m/$\.txt/){
        open (FILE, ">m/$\.txt/");
        print FILE "Success";
        close FILE;
    }
}