#!perl
use strict;
use warnings;
my $file = shift||exit print "usage : $0 <file>";
open( my $F, '<',$file)|| exit print $!;
while( <$F> )
{
    $_=~/\@(\w+)/;
    print $_  if $1 eq 'rambler';
}