YSITD_Chat_Bot says to #ysitd <tonyhhyip>: (PingNote: [提問] ...) #!/usr/bin/env perl while(my $line = <STDIN>) { print(s/\s+/ /g) }