Thank, Actually, That from my original assignment, I miss it, Thank you.
By the way, I have changed it to $oroute = $$ref{"Capability"}) =~ s/\s+//g; and the error are :

IROUTE: 6005494c523142 (ILR1B) === OROUTE: CARES (CARES)
Use of uninitialized value in substitution (s///) at ./alc_test.pl line 31.
Use of uninitialized value in pattern match (m//) at ./alc_test.pl line 32.
Use of uninitialized value in substitution (s///) at ./alc_test.pl line 40.
Use of uninitialized value in pattern match (m//) at ./alc_test.pl line 41.
Use of uninitialized value in concatenation (.) or string at ./alc_test.pl line 47.
Use of uninitialized value in concatenation (.) or string at ./alc_test.pl line 47.
IROUTE: [] (THANKS) === OROUTE: [] (THANKS)
Died at ./alc_test.pl line 26.

I found that this case only happened when the $iroute or $oroute is blank/null.