1#!/usr/local/bin/perl
2
3for( $i=1 ; $l = <STDIN> ; $i++ ) { print ">id_$i\n$l"; }
4