As indicated by moritz, this is a little too vague to provide a definitive answer. The following may help.

Perl Best Practices would recommend:

$line =~ s/.../.../gmsx;
[download]

Also, take a look at perlre.