# ... prompt and read user input ... then:

chomp $l, $t, $w;