print matches

[piadex2]

Dear Readers,

I am new to Perl so I am sorry for writing this simple problem but I have to write it because I can not solve it.
I know how to match strings but if there is a match then how can I print it out to the screen or write it into a file?
Thank you for your help in advance:

piadex2

 

[prex1]

Generally speaking you use parentheses and the [tt]$1,...[/tt] predefined variables.
Post what you have already, so we can understand what you want to do.

Franco

http://www.xcalcs.com

: Online engineering calculations

http://www.megamag.it

: Magnetic brakes for fun rides

http://www.levitans.com

: Air bearing pads

 

[satyamneerumalla]

Hope this answers your question!!

use strict;
my $input;
#Search for "zoo" in the text that was input by the user
print "Enter your input, program checks for the word 'zoo' :";
$input= <STDIN>;
chomp($input);
if($input=~/zoo/)
{
	print "success";
}
else
{
	print "faiilure";
}