# File in a scalar:
@matching_lines = $file =~ /^(.*${reg_exp}.*)$/mg;