while($x=){ if ($x =~ /^\[Note\](.+)$/){ $var = $1; #store in a variable print $var; } }