perl将一段文字的第二个字符串由小写转化为大写，其他不变

代码：

#! /usr/bin/perl
open(FILEIN,"<tt.txt")||die"can not open the file: $!";
open(FILEOUT,">tt_out.txt");
@filelist=<FILEIN>;?????????????????????? #add the file content to @fileList.
#print $filelist[2],"n";
foreach(@filelist)
{
??????? @strlist=split(/s+/,$_);
??????? if($_=~/$strlist[1]/)
??????? {
??????????????? $strlist_upper=uc $strlist[1];
??????????????? #print "$`$strlist_upper$'";
??????????????? print FILEOUT "$`$strlist_upper$'";
??????? }
}

?

实例：

tt.txt:

// hello? heloworld???? ilove
// world??????? lowcase tp uppercase
// n12ll_ckt_rf???????? low case

run the perl file.

tt_out.txt:

// HELLO? heloworld???? ilove
// WORLD??????? lowcase tp uppercase
// N12LL_CKT_RF???????? low case
呵呵，这是帮一个同事写的，感觉这个perl对我来说有两点：

一点是：

if($_=~/$strlist[1]/)
就是说直接获得的变量直接匹配。

二点是：

print FILEOUT "$`$strlist_upper$'"; $` and $' 可以匹配匹配字前后的内容，这个是我以前不知道的。