perl替换脚本

#!/usr/bin/perl -W                                                                                                           
                                                                                                                             
$line="";                                                                                                                    
while (defined($line = <stdin>)) {                                                                                           
    $_ = $line;                                                                                                              
    s#\$\(WINE_ROOT\)/buildtools#\$\(DEVELOPENV_ROOT\)/buildtools#g;                                                         
    print "$_";                                                                                                              
}