正则表达式：如何删除Perl中字符串之间的额外空格

I am working on a program that take user input for two file names. Unfortunately, the program can easily break if the user does not follow the specified format of the input. I want to write code that improves its resiliency against these types of errors. You'll understand when you see my code:I am working on a program that take user input