use strict;
use locale;


if ( $#ARGV != 0 ) {
    die "Usage : ", $0, " expression\n";
}

my $expression = $ARGV[0];
while ( my $ligne = <STDIN> ) {
    chomp $ligne;
    if ( $ligne =~ /$expression/i ) {
	print $ligne, "\n";
    }
}