#!/usr/bin/perl
$cimek=1; while (<>) { if (/[\w.-]+\@(?:[\w-]+\.)+\w+/) { print "$cimek: $&\n"; $cimek=$cimek+1; } } print "Total $cimek.\n";
You must be logged in to post a comment.
Recent Comments