#!/usr/bin/perl -T

use strict;
use warnings;

$ENV{PATH}="/bin";

while (<>) {
    chomp;
    my $str = '';
    if ( /(.+)/ ) {
        $str = $1;
    }
    system( "echo $str" );
}