perl -e '$s="Location: http://www.google.com Status Code: 200 OK"; @pcs = split(/ /, $s); for ( @pcs ) { print $_ . "\n" if /http/; }'