my ($var) = $line =~ /.*?:(\w+):.*?$/; # Declare $var in a List context.