while (<>) {
    chomp;
    print substr( $_, 1, length() - 2 ), $/;
}