my $s = ''; if ($s =~ /href=(['"])([^\1>]+?for-sale[^\1>]+?)\1>/i) { print "$2\n"; }