Select Code to Download

my $KWD = shift;
my $file = 'input.txt';
...
    my ( $first) = split /:/, $para;
    print $para if $first eq $KWD;
}

/^$KWD:/ and print while <in>;