RosettaCodeData/Task/User-input-Text/Perl/user-input-text.pl

#!/usr/bin/perl

my $string = <>; # equivalent to readline(*STDIN)
my $integer = <>;