note
choroba
In your particular case, it is not so hard to combine the regexes into one:
<c>while (<IFILE>) {
if (my ($word, $time_stamp) = /[#!]\s+(\w+)\s+(\d+)./) {
print "[ $word $time_stamp ]\n";
}
}
</c>
Note that the binding operator <c>=~</c> imposes a scalar context on its left operand, so matching an array does not do what you think.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-832495">
لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
</div></div>
1022239
1022239