use Data::Dump 'pp'; my $line = q{ http://www.yahoo.com }; pp $line=~/(.*)(\s*)(.*)(<\/value>)(.*)/i; __END__ ( "", "\n ", "http://www.yahoo.com", "", "", )