while (<>) { m/\s*(.*?\.xyz.com)/; print "$1 \n"; }