Changing a field to uppercase

[hawaiian1975]

I'm trying to read in a database type of file and change the names in a field to uppercase.

For example:

tjohnson | alpha1 | 1234 | bin | Tyrone Johnson | usr |
kdickson | 211986 | 4567 | bin | Ken Dickson | home |

I want to change the fifth field into all uppercase.

Is there a short and efficient script to accomplish this?

 

[CrimsonPenguin]

asuming your file is $file here's a script to do it:

@splitfile = split / \| /, $file;
$splitfile[4] = uc($splitfile[4]);
$file = join(' | ',@splitfile);