The code above does the following. If I enter#!/usr/bin/perl -w use strict; # variables my $eng; # main print "String : \n"; ($eng = <STDIN>); ($eng =~ s/u/a/i) if ($eng =~ /^.*u.*/g); print $eng;
In reply to Regex Question : Substitution by azatoth
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |