use strict; use warnings; $_ = 'www.scvckj.com agdsvejdvvws xwsjwswj www.wdxvecbc.com swgvdec www.asdvedj.com'; @_ = m/www\..*?\.com/g; print join "\n", @_;