たぶん。
perl -e '@file=("abc.txt");print + ( split /¥./, $file[0] )[0] , "¥n" ;'