#!/usr/bin/perl -w
use strict;

open F1, "testfile" or die "testfile: $!\n";
open F2, ">testfile2" or die "testfile2: $!\n";

while (<F1>){
    s/.*/test /;
    # s/.*/`tput smso`.'broken'.`tput rmso`/e;
    print F2;
    last;
}
close F1;
close F2;